Imports System
Imports System.Drawing
Imports System.Windows.Forms

Namespace xpComponent.Form
    Public Enum xpPanels
        pnlIcon = 0
        pnlTextColor = 1
        pnlButtton = 2
        pnlCombo = 3
        pnlProgressBar = 4
        pnlProgressPanel = 5
    End Enum

    Public Class ProgressPanel
        'This is the actual progress panel
        Inherits System.Windows.Forms.StatusBarPanel

        Private m_Minimum As Integer = 1
        Private m_Maximum As Integer = 100
        Private m_Value As Integer = 0
        Private m_Color As System.Drawing.Color

        Public Sub New()
            MyBase.New()
            Me.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw
            m_Color = System.Drawing.Color.Black
        End Sub

        Public Property Minimum() As Integer
            Get
                Return m_Minimum
            End Get
            Set(ByVal Value As Integer)
                m_Minimum = Value
            End Set
        End Property

        Public Property Maximum() As Integer
            Get
                Return m_Maximum
            End Get
            Set(ByVal Value As Integer)
                m_Maximum = Value
            End Set
        End Property

        Public Property Value() As Integer
            Get
                Return m_Value
            End Get
            Set(ByVal Value As Integer)
                m_Value = Value
            End Set
        End Property

        Public Property ForeColor() As System.Drawing.Color
            Get
                Return m_Color
            End Get
            Set(ByVal Value As System.Drawing.Color)
                m_Color = Value
            End Set
        End Property
    End Class
End Namespace